#!/usr/local/bin/perl
use File::Temp;
my $fin=$ARGV[0];
my $d=File::Temp->newdir;
my $fout=$fin;
$fout=~tr/\//./;
$fout=$d."/CV$fout.png";
my $rc=system("convert $fin $fout");
if($rc==0){
    print "#TMPDIR:$d\n";
    foreach(glob("$d/*")){
	print "#FILE:$_\n";
    }
    $File::Temp::KEEP_ALL=1;
}
exit $rc;
